/ Amoszine 11 / Amoszine 11 (Disk 2 of 2).adf / Paul_Huckstepp_Source.lha / Calcnewposmouse.AMOS

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 4d 4f 53 20 42 61 73 | 69 63 20 56 31 33 34 20 |AMOS Bas|ic V134 |
|00000010| 00 00 0a 24 16 01 06 52 | 00 24 44 49 53 54 41 4e |...$...R|.$DISTAN|
|00000020| 43 45 2c 20 53 54 45 50 | 20 41 4e 44 20 41 4e 47 |CE, STEP| AND ANG|
|00000030| 4c 45 20 50 52 4f 43 45 | 44 55 52 45 53 20 00 00 |LE PROCE|DURES ..|
|00000040| 02 00 00 00 19 01 06 52 | 00 2a 42 59 20 50 2e 48 |.......R|.*BY P.H|
|00000050| 55 43 4b 53 54 45 50 50 | 20 4f 46 20 48 55 43 4b |UCKSTEPP| OF HUCK|
|00000060| 53 54 45 50 50 20 53 4f | 46 54 57 41 52 45 20 31 |STEPP SO|FTWARE 1|
|00000070| 39 39 36 20 00 00 04 01 | 06 52 00 00 00 00 22 01 |996 ....|.R....".|
|00000080| 06 52 00 3c 54 48 52 45 | 45 20 53 49 4d 50 4c 45 |.R.<THRE|E SIMPLE|
|00000090| 20 54 4f 20 55 53 45 20 | 50 52 4f 43 45 44 55 52 | TO USE |PROCEDUR|
|000000a0| 45 53 20 44 45 53 49 47 | 4e 45 44 20 54 4f 20 48 |ES DESIG|NED TO H|
|000000b0| 45 4c 50 20 50 52 4f 47 | 52 41 4d 4d 45 52 53 20 |ELP PROG|RAMMERS |
|000000c0| 00 00 0f 01 06 52 00 16 | 55 53 45 20 41 4e 47 4c |.....R..|USE ANGL|
|000000d0| 45 53 20 57 49 54 48 20 | 45 41 53 45 2e 20 00 00 |ES WITH |EASE. ..|
|000000e0| 04 01 06 52 00 00 00 00 | 09 01 06 52 00 0a 4e 55 |...R....|...R..NU|
|000000f0| 4d 42 45 52 20 31 3a 20 | 00 00 16 01 06 52 00 24 |MBER 1: |.....R.$|
|00000100| 20 20 20 20 20 20 20 20 | 20 43 41 4c 43 4e 45 57 |        | CALCNEW|
|00000110| 50 4f 53 5b 48 58 2c 48 | 59 2c 44 58 2c 44 59 2c |POS[HX,H|Y,DX,DY,|
|00000120| 53 54 5d 20 00 00 2a 01 | 06 52 00 4c 54 68 69 73 |ST] ..*.|.R.LThis|
|00000130| 20 70 72 6f 63 65 64 75 | 72 65 20 74 61 6b 65 73 | procedu|re takes|
|00000140| 20 74 68 65 20 73 74 61 | 72 74 20 70 6f 69 6e 74 | the sta|rt point|
|00000150| 20 6f 66 20 48 58 2c 48 | 59 20 61 6e 64 20 63 61 | of HX,H|Y and ca|
|00000160| 6c 63 75 6c 61 74 65 73 | 20 74 68 65 20 6e 65 78 |lculates| the nex|
|00000170| 74 20 70 6f 69 6e 74 20 | 00 00 29 01 06 52 00 4a |t point |..)..R.J|
|00000180| 74 6f 77 61 72 64 73 20 | 74 68 65 20 64 65 73 74 |towards |the dest|
|00000190| 69 6e 61 74 69 6f 6e 20 | 70 6f 69 6e 74 20 6f 66 |ination |point of|
|000001a0| 20 44 58 2c 44 59 20 61 | 6e 64 20 6d 6f 76 69 6e | DX,DY a|nd movin|
|000001b0| 67 20 53 54 20 70 6f 69 | 6e 74 73 20 64 6f 77 6e |g ST poi|nts down|
|000001c0| 20 74 68 65 20 6c 69 6e | 65 20 00 00 04 01 06 52 | the lin|e .....R|
|000001d0| 00 00 00 00 1c 01 06 52 | 00 30 54 68 69 73 20 72 |.......R|.0This r|
|000001e0| 6f 75 74 69 6e 65 20 72 | 65 74 75 72 6e 73 20 74 |outine r|eturns t|
|000001f0| 68 65 20 6e 65 77 20 70 | 6f 69 6e 74 20 69 6e 20 |he new p|oint in |
|00000200| 48 58 20 61 6e 64 20 48 | 59 20 00 00 04 01 06 52 |HX and H|Y .....R|
|00000210| 00 00 00 00 09 01 06 52 | 00 0a 4e 55 4d 42 45 52 |.......R|..NUMBER|
|00000220| 20 32 3a 20 00 00 15 01 | 06 52 00 22 20 20 20 20 | 2: ....|.R."    |
|00000230| 20 20 20 20 20 43 41 4c | 43 44 49 53 54 41 4e 43 |     CAL|CDISTANC|
|00000240| 45 5b 68 78 2c 68 79 2c | 64 78 2c 64 79 5d 00 00 |E[hx,hy,|dx,dy]..|
|00000250| 25 01 06 52 00 42 53 69 | 6d 70 6c 79 20 63 61 6c |%..R.BSi|mply cal|
|00000260| 63 75 6c 61 74 65 73 20 | 74 68 65 20 64 69 73 74 |culates |the dist|
|00000270| 61 6e 63 65 20 62 65 74 | 77 65 65 6e 20 74 77 6f |ance bet|ween two|
|00000280| 20 70 6f 69 6e 74 73 20 | 48 58 2c 68 79 20 61 6e | points |HX,hy an|
|00000290| 64 20 44 58 2c 44 59 20 | 00 00 04 01 06 52 00 00 |d DX,DY |.....R..|
|000002a0| 00 00 19 01 06 52 00 2a | 54 68 69 73 20 72 6f 75 |.....R.*|This rou|
|000002b0| 74 69 6e 65 20 72 65 74 | 75 72 6e 73 20 74 68 65 |tine ret|urns the|
|000002c0| 20 64 69 73 74 61 6e 63 | 65 20 69 6e 20 44 49 53 | distanc|e in DIS|
|000002d0| 54 20 00 00 04 01 06 52 | 00 00 00 00 09 01 06 52 |T .....R|.......R|
|000002e0| 00 0a 4e 55 4d 42 45 52 | 20 33 3a 20 00 00 14 01 |..NUMBER| 3: ....|
|000002f0| 06 52 00 20 20 20 20 20 | 20 20 20 20 20 43 41 4c |.R.     |     CAL|
|00000300| 43 41 4e 47 4c 45 5b 68 | 78 2c 68 79 2c 64 78 2c |CANGLE[h|x,hy,dx,|
|00000310| 64 79 5d 20 00 00 22 01 | 06 52 00 3c 52 65 74 75 |dy] ..".|.R.<Retu|
|00000320| 72 6e 73 20 74 68 65 20 | 61 6e 67 6c 65 20 66 72 |rns the |angle fr|
|00000330| 6f 6d 20 74 68 65 20 70 | 6f 69 6e 74 20 48 58 2c |om the p|oint HX,|
|00000340| 48 59 20 74 6f 20 44 58 | 2c 44 59 2c 20 74 68 65 |HY to DX|,DY, the|
|00000350| 20 72 6f 75 74 69 6e 65 | 00 00 21 01 06 52 00 3a | routine|..!..R.:|
|00000360| 72 65 74 75 72 6e 73 20 | 74 68 65 20 61 6e 67 6c |returns |the angl|
|00000370| 65 20 69 6e 20 41 4e 47 | 4c 45 20 61 6e 64 20 69 |e in ANG|LE and i|
|00000380| 73 20 61 6c 77 61 79 73 | 20 66 72 6f 6d 20 2d 31 |s always| from -1|
|00000390| 37 39 20 74 6f 20 31 38 | 30 20 00 00 04 01 06 52 |79 to 18|0 .....R|
|000003a0| 00 00 00 00 04 01 06 52 | 00 00 00 00 10 01 06 52 |.......R|.......R|
|000003b0| 00 18 41 20 53 49 4d 50 | 4c 59 20 44 45 4d 4f 20 |..A SIMP|LY DEMO |
|000003c0| 46 4f 4c 4c 4f 57 53 20 | 20 20 00 00 02 00 00 00 |FOLLOWS |  ......|
|000003d0| 23 01 03 aa 00 06 00 00 | 02 00 68 78 00 5c 00 06 |#.......|..hx.\..|
|000003e0| 00 06 02 00 68 79 00 5c | 00 06 00 0c 02 00 64 78 |....hy.\|......dx|
|000003f0| 00 5c 00 06 00 12 02 00 | 64 79 00 5c 00 06 00 18 |.\......|dy.\....|
|00000400| 04 00 64 69 73 74 00 5c | 00 06 00 1e 06 00 61 6e |..dist.\|......an|
|00000410| 67 6c 65 00 00 00 02 00 | 00 00 13 01 00 06 00 00 |gle.....|........|
|00000420| 02 00 68 78 ff a2 00 3e | 00 00 00 0a 00 54 00 06 |..hx...>|.....T..|
|00000430| 00 06 02 00 68 79 ff a2 | 00 3e 00 00 00 0a 00 00 |....hy..|.>......|
|00000440| 1d 01 00 06 00 0c 02 00 | 64 78 ff a2 06 86 00 74 |........|dx.....t|
|00000450| 00 3e 00 00 01 40 00 7c | 00 54 00 06 00 12 02 00 |.>...@.||.T......|
|00000460| 64 79 ff a2 06 86 00 74 | 00 3e 00 00 00 c8 00 7c |dy.....t|.>.....||
|00000470| ff c0 00 3e 00 00 00 1f | 00 00 06 01 0b b8 00 3e |...>....|.......>|
|00000480| 00 00 00 00 00 00 14 01 | 09 ea 00 3e 00 00 00 01 |........|...>....|
|00000490| 00 5c 00 3e 00 00 01 40 | 00 5c 00 3e 00 00 01 00 |.\.>...@|.\.>....|
|000004a0| 00 5c 00 3e 00 00 00 02 | 00 5c 0c 90 00 00 11 01 |.\.>....|.\......|
|000004b0| 14 46 00 54 0b b8 00 3e | 00 00 00 00 00 54 0c fc |.F.T...>|.....T..|
|000004c0| 00 3e 00 00 00 00 00 5c | 00 36 00 00 0f ff 00 00 |.>.....\|.6......|
|000004d0| 14 01 09 ea 00 3e 00 00 | 00 02 00 5c 00 3e 00 00 |.....>..|...\.>..|
|000004e0| 02 80 00 5c 00 3e 00 00 | 00 1e 00 5c 00 3e 00 00 |...\.>..|...\.>..|
|000004f0| 00 02 00 5c 0c 84 00 00 | 11 01 14 46 00 54 0b b8 |...\....|...F.T..|
|00000500| 00 3e 00 00 00 00 00 54 | 0c fc 00 3e 00 00 00 00 |.>.....T|...>....|
|00000510| 00 5c 00 36 00 00 0f ff | 00 00 02 00 00 00 04 01 |.\.6....|........|
|00000520| 02 7e 02 c0 00 00 06 01 | 0c 6e 00 3e 00 00 00 01 |.~......|.n.>....|
|00000530| 00 00 19 01 0e 3c 00 06 | 00 00 02 00 68 78 00 5c |.....<..|....hx.\|
|00000540| 00 06 00 06 02 00 68 79 | 00 54 06 4a 00 14 20 42 |......hy|.T.J.. B|
|00000550| 6f 62 20 31 2c 48 58 2d | 31 30 2c 48 59 2d 31 30 |ob 1,HX-|10,HY-10|
|00000560| 2c 31 00 00 15 01 1e 16 | ff a2 0b ee 00 74 00 06 |,1......|.....t..|
|00000570| 00 00 02 00 68 78 00 7c | 00 54 1e 24 ff a2 0c 06 |....hx.||.T.$....|
|00000580| 00 74 00 06 00 06 02 00 | 68 79 00 7c 00 00 40 01 |.t......|hy.|..@.|
|00000590| 02 be 00 78 00 06 00 00 | 02 00 68 78 ff a2 00 06 |...x....|..hx....|
|000005a0| 00 0c 02 00 64 78 ff 58 | 00 06 00 06 02 00 68 79 |....dx.X|......hy|
|000005b0| ff a2 00 06 00 12 02 00 | 64 79 ff 4c 00 06 00 18 |........|dy.L....|
|000005c0| 04 00 64 69 73 74 ff a2 | 00 3e 00 00 00 01 02 c6 |..dist..|.>......|
|000005d0| 06 90 12 ce 00 54 00 06 | 00 0c 02 00 64 78 ff a2 |.....T..|....dx..|
|000005e0| 06 86 00 74 00 3e 00 00 | 01 40 00 7c 00 54 00 06 |...t.>..|.@.|.T..|
|000005f0| 00 12 02 00 64 79 ff a2 | 06 86 00 74 00 3e 00 00 |....dy..|...t.>..|
|00000600| 00 c8 00 7c ff c0 00 3e | 00 00 00 1f 00 00 0c 01 |...|...>|........|
|00000610| 0e 3c 00 06 00 0c 02 00 | 64 78 00 5c 00 06 00 12 |.<......|dx.\....|
|00000620| 02 00 64 79 00 00 02 00 | 00 00 25 01 0c 6e 00 3e |..dy....|..%..n.>|
|00000630| 00 00 00 01 00 54 00 12 | ff dc 0c 80 63 61 6c 63 |.....T..|....calc|
|00000640| 64 69 73 74 61 6e 63 65 | 00 84 00 06 00 00 02 00 |distance|........|
|00000650| 68 78 00 5c 00 06 00 06 | 02 00 68 79 00 5c 00 06 |hx.\....|..hy.\..|
|00000660| 00 0c 02 00 64 78 00 5c | 00 06 00 12 02 00 64 79 |....dx.\|......dy|
|00000670| 00 8c 00 00 2b 01 0c 6e | 00 3e 00 00 00 02 00 54 |....+..n|.>.....T|
|00000680| 13 78 00 3e 00 00 00 00 | 00 5c 00 3e 00 00 00 00 |.x.>....|.\.>....|
|00000690| 00 54 04 76 00 26 00 1a | 44 69 73 74 61 6e 63 65 |.T.v.&..|Distance|
|000006a0| 20 74 6f 20 50 6f 69 6e | 74 20 44 58 2c 44 59 20 | to Poin|t DX,DY |
|000006b0| 3a 20 00 64 00 06 00 18 | 04 00 64 69 73 74 00 64 |: .d....|..dist.d|
|000006c0| 00 26 00 04 20 20 20 20 | 00 00 1f 01 00 12 ff ca |.&..    |........|
|000006d0| 0a 80 63 61 6c 63 61 6e | 67 6c 65 00 00 84 00 06 |..calcan|gle.....|
|000006e0| 00 00 02 00 68 78 00 5c | 00 06 00 06 02 00 68 79 |....hx.\|......hy|
|000006f0| 00 5c 00 06 00 0c 02 00 | 64 78 00 5c 00 06 00 12 |.\......|dx.\....|
|00000700| 02 00 64 79 00 8c 00 00 | 26 01 13 78 00 3e 00 00 |..dy....|&..x.>..|
|00000710| 00 00 00 5c 00 3e 00 00 | 00 01 00 54 04 76 00 26 |...\.>..|...T.v.&|
|00000720| 00 17 41 6e 67 6c 65 20 | 74 6f 20 70 6f 69 6e 74 |..Angle |to point|
|00000730| 20 44 58 2c 44 59 20 3a | 20 00 00 64 00 06 00 1e | DX,DY :| ..d....|
|00000740| 06 00 61 6e 67 6c 65 00 | 00 64 00 26 00 03 20 20 |..angle.|.d.&..  |
|00000750| 20 00 00 00 02 00 00 00 | 23 01 00 12 ff f0 0a 80 | .......|#.......|
|00000760| 63 61 6c 63 6e 65 77 70 | 6f 73 00 84 00 06 00 00 |calcnewp|os......|
|00000770| 02 00 68 78 00 5c 00 06 | 00 06 02 00 68 79 00 5c |..hx.\..|....hy.\|
|00000780| 00 06 00 0c 02 00 64 78 | 00 5c 00 06 00 12 02 00 |......dx|.\......|
|00000790| 64 79 00 5c 00 3e 00 00 | 00 01 00 8c 00 00 03 01 |dy.\.>..|........|
|000007a0| 0c ca 00 00 02 00 00 00 | 02 00 00 00 14 01 02 be |........|........|
|000007b0| 00 20 11 d8 00 74 00 3e | 00 00 00 50 00 7c 02 c6 |. ...t.>|...P.|..|
|000007c0| 00 06 00 18 04 00 64 69 | 73 74 ff a2 00 3e 00 00 |......di|st...>..|
|000007d0| 00 01 00 00 02 00 00 00 | 02 00 00 00 03 01 02 86 |........|........|
|000007e0| 00 00 02 00 00 00 29 01 | 03 76 00 00 00 e4 00 06 |......).|.v......|
|000007f0| 80 00 00 06 00 00 0a 80 | 63 61 6c 63 6e 65 77 70 |........|calcnewp|
|00000800| 6f 73 00 84 00 06 ff ff | 02 00 68 78 00 5c 00 06 |os......|..hx.\..|
|00000810| ff f9 02 00 68 79 00 5c | 00 06 ff f3 02 00 64 78 |....hy.\|......dx|
|00000820| 00 5c 00 06 ff ed 02 00 | 64 79 00 5c 00 06 00 00 |.\......|dy.\....|
|00000830| 02 00 73 74 00 8c 00 00 | 02 00 00 00 05 01 00 4e |..st....|.......N|
|00000840| 12 00 05 c8 00 00 0e 01 | 00 4e 12 02 06 80 00 06 |........|.N......|
|00000850| ff ff 02 00 68 78 00 5c | 00 06 ff f9 02 00 68 79 |....hx.\|......hy|
|00000860| 00 00 0e 01 00 4e 12 02 | 05 72 00 06 ff f3 02 00 |.....N..|.r......|
|00000870| 64 78 00 5c 00 06 ff ed | 02 00 64 79 00 00 09 01 |dx.\....|..dy....|
|00000880| 00 4e 12 01 05 98 00 06 | 00 00 02 00 73 74 00 00 |.N......|....st..|
|00000890| 0a 01 00 06 ff ff 02 00 | 68 78 ff a2 00 4e 12 00 |........|hx...N..|
|000008a0| 06 44 00 00 0a 01 00 06 | ff f9 02 00 68 79 ff a2 |.D......|....hy..|
|000008b0| 00 4e 12 00 06 52 00 00 | 02 00 00 00 0e 01 03 90 |.N...R..|........|
|000008c0| 00 84 00 06 ff ff 02 00 | 68 78 00 5c 00 06 00 00 |........|hx.\....|
|000008d0| 02 00 68 79 00 8c 00 00 | 02 00 00 00 25 01 03 76 |..hy....|....%..v|
|000008e0| 00 00 00 9c 00 00 80 00 | 00 06 00 00 0c 80 63 61 |........|......ca|
|000008f0| 6c 63 64 69 73 74 61 6e | 63 65 00 84 00 06 ff ff |lcdistan|ce......|
|00000900| 02 00 68 78 00 5c 00 06 | ff f9 02 00 68 79 00 5c |..hx.\..|....hy.\|
|00000910| 00 06 ff f3 02 00 64 78 | 00 5c 00 06 ff ed 02 00 |......dx|.\......|
|00000920| 64 79 00 8c 00 00 02 00 | 00 00 0e 01 00 4e 12 02 |dy......|.....N..|
|00000930| 06 80 00 06 ff ff 02 00 | 68 78 00 5c 00 06 ff f9 |........|hx.\....|
|00000940| 02 00 68 79 00 00 16 01 | 00 06 ff e7 04 00 64 69 |..hy....|......di|
|00000950| 73 74 ff a2 00 4e 12 02 | 05 b4 00 74 00 06 ff f3 |st...N..|...t....|
|00000960| 02 00 64 78 00 5c 00 06 | ff ed 02 00 64 79 00 7c |..dx.\..|....dy.||
|00000970| 00 00 0a 01 03 90 00 84 | 00 06 ff e7 04 00 64 69 |........|......di|
|00000980| 73 74 00 8c 00 00 02 00 | 00 00 24 01 03 76 00 00 |st......|..$..v..|
|00000990| 00 a0 00 00 80 00 00 06 | 00 00 0a 80 63 61 6c 63 |........|....calc|
|000009a0| 61 6e 67 6c 65 00 00 84 | 00 06 ff ff 02 00 68 78 |angle...|......hx|
|000009b0| 00 5c 00 06 ff f9 02 00 | 68 79 00 5c 00 06 ff f3 |.\......|hy.\....|
|000009c0| 02 00 64 78 00 5c 00 06 | ff ed 02 00 64 79 00 8c |..dx.\..|....dy..|
|000009d0| 00 00 0e 01 00 4e 12 02 | 06 80 00 06 ff ff 02 00 |.....N..|........|
|000009e0| 68 78 00 5c 00 06 ff f9 | 02 00 68 79 00 00 0e 01 |hx.\....|..hy....|
|000009f0| 00 4e 12 02 05 72 00 06 | ff f3 02 00 64 78 00 5c |.N...r..|....dx.\|
|00000a00| 00 06 ff ed 02 00 64 79 | 00 00 0c 01 00 06 ff e1 |......dy|........|
|00000a10| 06 00 61 6e 67 6c 65 00 | ff a2 00 4e 12 00 05 42 |..angle.|...N...B|
|00000a20| 00 00 0b 01 03 90 00 84 | 00 06 ff e1 06 00 61 6e |........|......an|
|00000a30| 67 6c 65 00 00 8c 00 00 | 41 6d 42 73 00 01 41 6d |gle.....|AmBs..Am|
|00000a40| 53 70 00 01 00 02 00 1e | 00 01 00 00 00 00 00 00 |Sp......|........|
|00000a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 ff |........|........|
|00000a60| 80 00 07 00 70 00 18 00 | 0c 00 20 00 02 00 40 00 |....p...|.. ...@.|
|00000a70| 01 00 80 00 00 80 80 00 | 00 80 80 00 00 80 40 00 |........|......@.|
|00000a80| 01 00 20 00 02 00 18 00 | 0c 00 07 00 70 00 00 ff |.. .....|....p...|
|00000a90| 80 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ac0| 00 00 00 00 00 00 00 00 | 0f ff 0f ff 00 00 0f 00 |........|........|
|00000ad0| 00 f0 00 0f 06 66 05 55 | 03 33 07 33 03 73 07 73 |.....f.U|.3.3.s.s|
|00000ae0| 03 37 07 37 03 77 00 00 | 0e c8 0c 60 0e a0 02 7f |.7.7.w..|...`....|
|00000af0| 04 9d 05 ae 0a df 0b df | 0c ef 0f ff 04 08 0a 0e |........|........|
|00000b00| 0e 0e 0e 08 0e ee       |                         |......  |        |
+--------+-------------------------+-------------------------+--------+--------+